'From Pharo1.2.1 of 2 April 2011 [Latest update: #12345] on 17 October 2011 at 2:58:23 pm'!TestCase subclass: #TesteElementoPergursoLaser	instanceVariableNames: ''	classVariableNames: ''	poolDictionaries: ''	category: 'Jogo-Do-Laser-Testes'!!TesteElementoPergursoLaser methodsFor: 'as yet unclassified' stamp: 'luiis 10/17/2011 14:58'!testeProximoElemento	| elementoPercurso grade celula novoElementoPercurso | 		grade := Grade novaGradeComColunas: 5 eLinhas:  5.		celula := grade celulaInicial.		self should: [ celula posicaoNaGrade = 1@5 ].	elementoPercurso := ElementoPercursoLaser novaCelula: celula entradaLaser: #baixo.		novoElementoPercurso  := elementoPercurso proximoElemento: grade.		self should: [ celula posicaoNaGrade = 1@4 ].	self should: [ novoElementoPercurso entradaLaser = #baixo]! !